putStr :: String -> ()